home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Converters / Convert_MacPaint / Source / PSstuff / UnpackedCode < prev   
Text File  |  1995-06-12  |  509b  |  28 lines
  1. %BEGIN MacPaint
  2.  
  3. %
  4. %    Create the string that will be used to hold the image data as it
  5. %    is retrieved (72 bytes per macpaint scan line)
  6. %
  7. /scanline 72 string def
  8.  
  9. %
  10. %    - showMPimage -
  11. %
  12. %    This reads the image data in, and displays the image properly. 
  13. % 
  14. /showMPimage 
  15. { 
  16.     576 720 scale 
  17.     576 720 1 
  18.     [576 0 0 -720 0 720] 
  19.     {currentfile scanline readhexstring pop} 
  20.     image
  21.     % Discard the final > char.  (Also consumes preceeding newline)
  22.     currentfile read pop pop
  23.     currentfile read pop pop
  24. }
  25. def
  26.  
  27. %END MacPaint
  28.